home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / wais / bin / xwaisq < prev   
Encoding:
Text File  |  1995-05-09  |  1.2 KB  |  48 lines
  1. #!/bin/csh -f
  2. # WIDE AREA INFORMATION SERVER SOFTWARE:
  3. #   No guarantees or restrictions.  See the readme file for the full standard
  4. #   disclaimer.    
  5. #
  6. # Script to set X App defaults path for xwais.
  7. #
  8. # $Log:    xwaisq,v $
  9. # Revision 1.11  92/03/17  14:57:16  jonathan
  10. # Changed XUSERFILESEARCHPATH back to XAPPLRESDIR.
  11. # 
  12. # Revision 1.10  92/03/01  16:37:28  jonathan
  13. # removed ; do.
  14. # 
  15. # Revision 1.9  92/02/18  13:04:19  jonathan
  16. # added test for no args (new question) and removed \ from quotes.
  17. # 
  18. # Revision 1.8  92/02/17  17:33:20  jonathan
  19. # Renamed program to ../x/xwaisq for new makefile (Imakefile)
  20. # 
  21. # Revision 1.7  92/02/16  20:47:19  jonathan
  22. # put "'s aorund arguments to program.  Found by davis@willow.tc.cornell.edu.
  23. # 
  24. #
  25. set program=../x/xwaisq
  26. set my_dir=`dirname $0`
  27. set my_name=`basename $0`
  28. # if run from the path, look for it:
  29. if ($my_dir == "") then
  30.   foreach dir ($path)
  31.     if (-f $dir/$my_name) then
  32.       set my_dir=$dir
  33.     endif
  34.   done
  35. endif
  36. # Now do it:
  37. if ($?XAPPLRESDIR) then
  38.    setenv XAPPLRESDIR \
  39.    ${XAPPLRESDIR}:$my_dir/../x
  40. else
  41.    setenv XAPPLRESDIR $my_dir/../x
  42. endif
  43. if ($#argv == 0) then
  44.  $my_dir/$program
  45. else
  46.  $my_dir/$program "$*"
  47. endif
  48.